resp_set <- sim_resp(ip = generate_ip(n = 12), theta = rnorm(10),
output = "response_set")
r1 <- response(score = c(0, 1), examinee_id = "Stu-22",
item_id = c("Item_1", "Item_2"))
resp_set[[2]] <- r1
Run the code above in your browser using DataLab